Neighborhood procedures

to walk_dog
repeat #
[fd 4 setsh 19 wait .75 fd 5 setsh 20 wait .75]
seth (degree)
repeat above code the number of times nessasary
end


to Butterfly
seth 0
repeat 45[setsh 34 wait 1 fd 1 rt 90 fd 3 lt 90 setsh 35 wait 1 fd 1 rt 90 fd 3 lt 90]
end


to humming
repeat 800 [setsh 36 wait 1 setsh 37 wait 1]
end


to startall
(t1), setpos [x y]
(t2), setpos [x y]
(t3), setpos [x y]
(t1), launch[walk_dog]
(t2), launch [humming]
(t3), launch [butterfly]
end